home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / haeberli / pstools / psfold.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-02  |  5.2 KB  |  227 lines
  1. /*
  2.  * Copyright 1991, 1992, 1993, 1994, Silicon Graphics, Inc.
  3.  * All Rights Reserved.
  4.  *
  5.  * This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  6.  * the contents of this file may not be disclosed to third parties, copied or
  7.  * duplicated in any form, in whole or in part, without the prior written
  8.  * permission of Silicon Graphics, Inc.
  9.  *
  10.  * RESTRICTED RIGHTS LEGEND:
  11.  * Use, duplication or disclosure by the Government is subject to restrictions
  12.  * as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  13.  * and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  14.  * successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  15.  * rights reserved under the Copyright Laws of the United States.
  16.  */
  17. /*
  18.  *    psfold -
  19.  *        Fold pages in half for book generation
  20.  *
  21.  *    To compile:
  22.  *        cc psfold.c -o psfold 
  23.  *
  24.  *                Paul Haeberli - 1993
  25.  */
  26. #include "stdio.h"
  27. #include "math.h"
  28. #include "ctype.h"
  29.  
  30. #define INBUFSIZE    4096
  31. #define MAXPAGES    1000
  32.  
  33. char buf[INBUFSIZE];
  34. int secstart[MAXPAGES];
  35. int secend[MAXPAGES];
  36. int trailstart;
  37. int trailend;
  38. float pdx, pdy, pscale;
  39. float pwidth, pheight;
  40.  
  41. indexpages(inf)
  42. FILE *inf;
  43. {
  44.     int i, n, before, after;
  45.  
  46.     n = 0;
  47.     trailstart = 0;
  48.     trailend = 0;
  49.     while(fgets(buf,INBUFSIZE,inf)) {
  50.     if(strncmp(buf,"%%Page:",7) == 0) {
  51.         after = ftell(inf);
  52.         if(n>0)
  53.         secend[n-1] = before;
  54.         secstart[n] = after; 
  55.         n++;
  56.     } else if(strncmp(buf,"%%Trailer",9) == 0) {
  57.         after = ftell(inf);
  58.         if(n>0)
  59.         secend[n-1] = before;
  60.         trailstart = after;
  61.         trailend = sizeoffile(inf);
  62.         return n;
  63.     }
  64.     before = ftell(inf);
  65.     }
  66.     secend[n-1] = ftell(inf);
  67.     return n;
  68. }
  69.  
  70. putpage(inf,pageno,npages)
  71. FILE *inf;
  72. int pageno, npages;
  73. {
  74.     int nbytes;
  75.  
  76.     if(pageno<npages && pageno>=0) {
  77.     nbytes = secend[pageno]-secstart[pageno];
  78.     putsection(inf,secstart[pageno],nbytes);
  79.     }
  80. }
  81.  
  82. putsection(inf,start,nbytes)
  83. FILE *inf;
  84. int start, nbytes;
  85. {
  86.     int nr;
  87.  
  88.     fseek(inf,start,0);
  89.     while(nbytes>0) {
  90.     if(!fgets(buf,INBUFSIZE,inf)) {
  91.         fprintf(stderr,"psbook: bad read in putsection\n");
  92.         exit(1);
  93.     }
  94.     nr = strlen(buf);
  95.     nbytes -= nr;
  96.     if(buf[0] != '%')
  97.         fputs(buf,stdout);
  98.     }
  99.     if(nbytes != 0) {
  100.     fprintf(stderr,"psbook: strange read in putsection\n");
  101.     exit(1);
  102.     }
  103. }
  104.  
  105. #define VERT    (0)
  106. #define HORIZ    (1)
  107.  
  108. main(argc,argv)
  109. int argc;
  110. char **argv;
  111. {
  112.     FILE *inf;
  113.     int npages, folddir, i;
  114.  
  115.     if(argc<2) {
  116.      fprintf(stderr,"\nusage: psfold in.ps [-hfold] [-vfold] [-s pagedx pagedy] > out.ps\n");
  117.      exit(1);
  118.     }
  119.     folddir = VERT;
  120.     pwidth = 8.5;
  121.     pheight = 11.0;
  122.     for(i=2; i<argc; i++) {
  123.         if(argv[i][0] == '-') {
  124.             switch(argv[i][1]) {
  125.                 case 'h':
  126.             folddir = HORIZ;
  127.                     break;
  128.                 case 'v':
  129.             folddir = VERT;
  130.                     break;
  131.                 case 's':
  132.                     i++;
  133.                     pwidth = atof(argv[i]);
  134.                     i++;
  135.                     pheight = atof(argv[i]);
  136.                     break;
  137.         }
  138.     }
  139.     }
  140.     if(folddir == VERT)
  141.     fprintf(stderr,"psfold: output page size is -s %f %f\n",pwidth/2.0,pheight);
  142.     else
  143.     fprintf(stderr,"psfold: output page size is -s %f %f\n",pheight/2.0,pwidth);
  144.     pwidth *= 72.0;
  145.     pheight *= 72.0;
  146.     printf("%%!PS-Adobe-2.0\n");
  147.     printf("%%%%EndComments\n");
  148.     inf = fopen(argv[1],"r");
  149.     if(!inf) {
  150.      fprintf(stderr,"psbook: can't open %s\n",argv[1]);
  151.      exit(1);
  152.     }
  153.     npages = indexpages(inf);
  154.     fprintf(stderr,"Document pages %d\n",npages);
  155.     if(npages == 0) {
  156.     fprintf(stderr,"psfold: Document does not have page info\n");
  157.     exit(1);
  158.     } 
  159.     putpages(inf,npages,folddir);
  160.     fclose(inf);
  161.     exit(0);
  162. }
  163.  
  164. putpages(inf,npages,folddir)
  165. FILE *inf;
  166. int npages, folddir;
  167. {
  168.     int pageno;
  169.     
  170.     printf("%%%%Page: page%d %d\n",1,1);
  171.     printf("showpage\n");
  172.     if(folddir == VERT) {
  173.     for(pageno=0; pageno<npages; pageno++) {
  174.         printf("%%%%Page: page%d %d\n",pageno+2,pageno+2);
  175.         dosave(inf);
  176.         printf("%f %f scale\n",1.0,1.0);
  177.         printf("%f %f translate\n",0.0,0.0);
  178.         putsection(inf,0,secstart[0]);
  179.         putpage(inf,pageno,npages);
  180.         dorestore(inf);
  181.         printf("%%%%Page: page%d %d\n",pageno+2,pageno+2);
  182.         dosave(inf);
  183.         printf("%f %f scale\n",1.0,1.0);
  184.         printf("%f %f translate\n",-pwidth/2.0,0.0);
  185.         putsection(inf,0,secstart[0]);
  186.         putpage(inf,pageno,npages);
  187.         dorestore(inf);
  188.     }
  189.     } else {
  190.     for(pageno=0; pageno<npages; pageno++) {
  191.         printf("%%%%Page: page%d %d\n",pageno+2,pageno+2);
  192.         dosave(inf);
  193.         printf("%f %f scale\n",1.0,1.0);
  194.         printf("%f %f translate\n",0.0,0.0);
  195.          printf("%f %f translate\n",pwidth,0.0);
  196.         printf("90 rotate\n");
  197.         putsection(inf,0,secstart[0]);
  198.         putpage(inf,pageno,npages);
  199.         dorestore(inf);
  200.         printf("%%%%Page: page%d %d\n",pageno+2,pageno+2);
  201.         dosave(inf);
  202.         printf("%f %f scale\n",1.0,1.0);
  203.         printf("%f %f translate\n",-pheight/2.0,0.0);
  204.          printf("%f %f translate\n",pwidth,0.0);
  205.         printf("90 rotate\n");
  206.         putsection(inf,0,secstart[0]);
  207.         putpage(inf,pageno,npages);
  208.         dorestore(inf);
  209.     }
  210.     }
  211.     printf("%%%%EOF\n");
  212. }
  213.  
  214. dosave(inf)
  215. FILE *inf;
  216. {
  217.     printf("gsave\n");
  218. }
  219.  
  220. dorestore(inf)
  221. FILE *inf;
  222. {
  223.     if(trailstart) 
  224.     putsection(inf,trailstart,trailend-trailstart);
  225.     printf("grestore\n"); 
  226. }
  227.